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| 
| 
MODULE LNK_DYNMEM 
(IDENT = 'V04-000' | 
-ADDRESS ING MODE | 
EXTERNAL = GENERAL) | 


Sssssss 


BR 

: 4 4 

; 5 5 

3 6 $ 

3 7 1 BEGIN 

8 008 1! 

; S 009 1! 

$ 19 Bot : SRR AA REAR AREA AAEAA ERA AE EERE REA REA AA AAEATEAEAREEEEREEEEEE | 

: be . : 
: i Bog 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * ; 
7% 013 1 i DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. * : 
; 1 pote ! » ALL RIGHTS RESERVED. * : 
3 4 ® . 
: 616 0016 1 !« THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | : 
. oF 0017 1 !* ONLY IN ACCORDANCE WITH THE RMS OF SUCH LICENSE D WITH THE * ; 
: #6418 0018 1 !« INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
: #619 0019 1 !* COPIES THEREOF BA NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

: 20 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSKIP OF THE SOFTWARE IS HEREBY * 

3 $) Oo) ! be TRANSFERRED. * 

Py :* * 

bags 00 g 1 '= THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

: 2 0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; ¢? OOS? ! :* CORPORATION. * 

. if ® 

Die aE 0037 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 4 oY $ ! 1. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

° 2 

5 30 $080 1 !e * 

g 31 0031 1 VR RR RARER ARERR AE AAR A EEA E TEAR 

5 $8 tT 4 1! 

s 0033 1! 

3 4 0034 1! 

; 5 0035 1! 

3 36 0036 1! 

: 37 0037 1 !+4+¢ 

5 $ 0038 1! 

: 9 0039 1 ! MODULE: LNK_DYNMEM 

; 40 0040 1! 

: «341 0041 1 ! FACILITY: LINKER 

3 $§ beg 1! 

; $? O06 3 ! ABSTRACT: DYNAMIC MEMORY ALLOCATION AND DEALLOCATION 

; 8 45 1 | HISTORY: 

; 646 0046 1! 

: «647 0047 1! VERSION: X01.00 

:; 648 048 1! 

: 469 9 1! AUTHOR: T.J. PORTER 14-JAN-77 

; 30 0050 1! 

; 1 51 1 ! MODIFIED BY: 

; 26 02g 1! | 

fs & a 2 v03-003 ApE0002 Alan D0. Eldri dge 30-J HA 

: 564 054 1! x LNKSREQUESTMEM to return LINS_EXPAGQUO 7 in _MEMF UL 

: 2? 2? ! 4oX. than false. 

; 2$ O89 1! v03-002 ADE0001 Alan D. Eldridge 24-Jul-1984 


vba 


1 ts 2 


v03-001 


v93-001 


WSestoctage 33:56:39 


Differentiate page file quota proeens from Lack of virtual 
address space when reporting error 


JWT0038 m Teague 3-Jun-1982 

chean up INFO#21 yoo Also add routine LNKSREQUESTMEM 
which will make SEXPREG calls with better 

error handling. 


BLS0007 Benn Schreiber, 
Convert to MDL data structures. 


3-Jun-1980 


AX-11 Bi iss -32 v4.0 
LINKER. $Red LARD YNAGH. 2;1 


F 2 
LNK_DYNMEM 15-Sep-1 AX-11 Bliss-32 V4.0 Page 3 
i a=000 14-Sep-1 1382 93; 26: 38 YMINKER” RC LNKDYNMEM, 5 2;1 ° (2) 
>. 1 
: q § | ie 
; 7 Be 
: t O76 i FUNCTIONAL DESCRIPTION: 
: 75 074 1 THIS MODULE CONTAINS ALL THE PYNAMIC MEMORY ALLOCATION 
> 76 075 1: D DE=ALLOCATION LOGIC OF THE LINKER. A SINGLY 
: #77 076 1 i vin KED LIST OF FREE BLOCKS OF MEMORY IS MAINTAINED 
: 78 007 1 i (LISTHEAD IS LNKSGL_MEMLHD) AND MEMORY IS ALLOCATE 
: 79 078 1! Y FIRST FIT. SHOULD THERE BE NO AVAILABLE MEMORY BLOCK 
: 80 0079 1: OF REQUIRED $1ZE, THE ALLOCATION ROUTINE EXPANDS 
co at 9080 1 | THE PROGRAM REGION BY THE NUMBER OF PAGES EQUAL TO 
: 8 081 1: LNKSC_MEMEXP, LINKS THIS ON THE END OF THE FREE 
: 8B 008¢ 1} LIST AND ALLOCATES THE REQUIRED MEMORY FROM THAT NEW 
> Bb 0083 1! CK. THE FREE MEMORY LIST IS THEREFORE INITIALIZED 
> BS 0084 1: ON FIRST ALLOCATION CALL. MEMORY IS ALWAYS ALLOCATED 
: 86 0085 1: IN EIGHT BYTE QUANTA, WITH A MAXIMUM OF LNKSC_MEMEXP®512 
: 87 008 ; BYTES. DEALLOCATION EFFECTS COMPACTION WHENEVER POSSIBLE. 
> 9 0088 1: CALLING SEQUENCES: 
: 90 0089 1: NKSALLOBLK (BLOCKSIZE ,BLOCKADDR) 
; 31 9090 LNKSDEALBLK (BLOCKS IZE, *BLOCKADDR) 
: 9 0092 1: BLOCKSIZE = NUMBER OF BYTES TO BE (DE ALLOCATED. 
: 94 0093 1: BLOCKADDR = = ADDRESS OF CELL FOR THE ADDRESS OF 
: 95 0094 1! THE BLOCK ALLOCATED OR TO BE DEALLOCATED. 
: 96 0095 | ERROR CONDITIONS: 
; 98 0097 1. BLOCKSIZE < OR = 0 OR > LNKSC_MEMEXP®#512 (CODE = 0,10) 
: 100 0099 1: 2. FAILURE TO EXPAND THE PROGRAM REGION ISSUES A MESSAGE 
; 101 9100 THAT MEMORY [S FULL AND THE LINKER ABORTS. 
; 108 108 1/ ANY PART OF A BLOCK TO BE E DEALLOCATED. 1s: 
> 104 103 1: (1) WITHIN A FREE BLO 
> 105 104 1! (11) BEYOND TOP OF SROGRAR REGION (CODE = 11) 
; 106 0105 (J11) LOWER THAN THAN LOWEST BLOCK EVER ALLOCATED (CODE = 12) 
: 108 0107 1: IN CASES 1 AND 3 A FATAL ("BUG") MESSAGE IS ISSUED AND 
> 109 0108 1: THE LINKER TERMINATES, 
: 110 9109 1! 
oe ei 
: 113 ote 1 LIBRARY 
: 114 113 "LIBL32'; 
; 116 otis 1 REQUIRE 
; 117 O116 "PREFIX'; 
; 130 § i FORWARD CAL SRE SUES TMEM, 
: 154 . 4s ALLOCATE ! ALLOCATION ROUTINE 
; 1 é 5 1 DEALLOCATE; i DEALLOCATION ROUTINE 
: 182 | SLOBAL  MKSGL_MEMLHD : VECTORC2) 
+ 125 5 1 2 " INITIAL (0,0) FREE MEMORY LISTHEAD 
: 126 1 LNKSGL_MINADDR : INITIAL(CONTROL REGION): ' LOWEST ADDR ESS EVER ALLOCATED 


2 
y$-sep-1964 25:56:59 yaKct1 BLisg-52 v4io-74g, | page 4) | 


: 127 40 1 

: 128 41 1 EXTERNAL LITERAL 

> 129 46 1 LINS_EXPAGQUO, ' RAN OUT OF PAGE FILE QUOTA 

> 130 43 4 LINS"MEMB i ILLEGAL BLOCK SIZE MESSAGE 

; 1 44 LINS"MEMFUL: i RAN OUT OF VM MESSAGE 

7% 4g 1 GLOBAL LITERAL 

; 1 4 4 i LNKSC_MEMEXP = 128; ! NO. OF PAGES TO EXTEND PROGRAM REGION 
a rk 1 LITERAL 

: 1 ; ; MAXBLOCKSIZE = LNKSC_MEMEXP®512; ! MAXIMUM ALLOCATION SIZE 

: 139 .-¥ 

: 140 $4 ERRORCODE : BYTE, | ERROR CODE FOR FAILURE MESSAGE 
: 141 0 54 1 NEWBLOCK : REF VECTOR 1. i CURRENT BLOCK POINTER 

; 148 55 1 NEXTBLOCK : REF VECTOR (2), i NEXT BLOCK POINTER 

; 143 0 36 LASTBLOCK REF VECTOR (2): i PREVIOUS BLOCK POINTER 


a 


13-Se0-1964 25:56:39 YANN! Blisg-32 v4.ga74g, Page 5 


GLOBAL ROUTINE LNKSALLOBLK (SIZE, BLOCKADDR) : NOVALUE = 
' 


— 
te 


; é 1 

$ 1 

: 148 s 1 ALLOCATE A BLOCK FROM THE FREE 

> 149 1 MEMORY LIST. 

: 150 6¢ 1 

; 151 6 BEGIN 

—* é 64 

2 65 LOCAL 

; | 4 66 BLOCKSIZE; 

; | $ 68 ERRORCODE = 0; ! INITIALIZE ERROR CODE 
; 138 1 BLOCKSIZE = (.SIZE + 7) AND ( NOT 7); ! ROUND UP TO MULTIPLE OF 8 BYTES 
: 160 f IF .BLOCKSIZE EQL 0 ' CHECK LEGAL BLOCK 

> 161 7 OR BLOCKSIZE GTRU MAXBLOCKS1ZE i SIZE WAS REQUESTED 

; 168 74 3 OR NOT (ERRORCODE = .ERRORCODE + 1; i SET NEW ERROR CODE 

; 163 9 if ALLOCATE (.BLOCKSIZE, . SLOEKADDR) i GO ALLOCATE 

: 165 0 ig THEN SIGNAL -STOP(LINS MEMBUG, 3 ! ISSUE ERROR MESSAGE AND 
> 166 0278 LOtK KSIZE,.BLOCKADDR 

: 167 0279 “ERRO RCODE ! TERMINATE IF FAILURE 

> 168 0280 ‘2 

: 169 0281 RETURN; ! OTHERWISE RETURN 

> 170 0282 1 END i OF LNKS$ALLOBLK ROUTINE 


TITLE LNK_DYNMEM 
-IDENT \V0%-000\ 


~-PSECT SOWNS,NOEXE,2 
00000 ERRORCODE: 
LK 


e 1 
00001 *BLKB 3 
00004 NEWBLOCK: ; 
00008 NEXTBLOCK: , 
0000C LASTBLOCK: 
.BLKB 4 
-PSECT $GLOBAL$,NOEXE,2 
00000000 00000000 00000 LNKSGL_MEML HD: 


LO 0, 0 3 
40000000 00008 LUKSGL AIMABOR Ss 


1073741824 : 
LNKSC tea |i 128 

.EXTRN LINS_ Se. LINS_MEMBUG 

-EXTRN LINS"MEMF 

-PSECT SCODES,NOWRT,2 


p00" cre se Sees aENTRY LNKSALLOBLK, Save R2,R3 0258 


53 ERRORCODE, R3 ; 


af ee TS ae a cage te Leake: 


LN DINNER BrSep-1984 25:56:39 YANNI BLiag-52 4ioa7ug age 


1 
1 
94 7 CLRB_  ERRORCODE ; 
59 04 ac ; C1 9 ADDL a7, Size RO : 9368 
5 ? 8 BICL3 #7, RO, BLOCKSIZE ; 
: BEQL «=s1$ : 0278 
00010000 =&F + 0001 CMPL BLOCKSIZE, #65536 + 027 
F 1A 0001B BGTRU F 
3 96 0001D INCB = ERRORCODE + 0274 
08 AC DD OOOIF PUSHL BLOCKADDR + 0275 
Dd 2 PUSHL BLOCKSIZE ; 
0000v CF FB 4 CALLS #2, ALLOCATE ; 
17 f 9 BLBS RO, 2 ; 
7E 63 OA C 1$: MOVZBL ERRORCODE, -(SP) + 0279 
08 AC OD F PUSHL  BLGCKADDR + 0278 
0D 90 2 PUSHL BL OCKSIZE ; 
DD 00034 PUSHL t 0277 
000000006 BF DD 90 é PUSHL wi INS MEMBUG ; 
000000006 00 05 FB 000 ¢ CALLS #5, LIBS$STOP ; 
04 00043 28: ET + 0282 


; Routine Size: 68 bytes, Routine Base: S$CODE$ + 0000 
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A) et et ee ot os ot tt OOO 
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PORGNIPSPOPNoNMPNPNPINY 
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Rohenonoporfory 


Hoseo-1964 3:56:59 


OUTINE ALLOCATE (SIZE, ADDRESS) = 


ROUTINE TO DO ACTUAL ALLOCATION AND PROGRAM 
REGION EXPANSION 


" pene 


STATUS 

MEMLIMITS : VECTOR (2); 
LASTBLOCK = LNKSGL_MEMLHD (0); 
WHILE E_ (NEWBLOCK = ,LASTBLOCK [0]) NEQ 0 
fF -NEWBLOCK (1) EQL .SIZE 
THEN BEGIN 

LASTBLOCK (0) = .NEWBLOCK 

THEN niNKSGL -MINADDR = NEWBLOCK 


RETURN TRUE; 
4 LASTBLOCK = NEWBLOCK(O]; 


THUS, WE EXPAND THE ADDRESS SPACE AND ATTEM 
ALLOCATE FROM ADDITIONAL VIRTUAL MEMORY. 


F ¢ 
HEN 


EN RETURN FALSE; 


IF NOT ALLOCATE ( 
THEN RETURN FALSE; 


13 aa TRUE; 
ELSE SIGNAL_STOP (.STATUS); 
RETURN FALSE; 
END; 


»SIZE, . ADDRESS) 


1 
1 
1 
1 
E 
4 
4 
4 
4 
4 
4 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
3 
= 


0]; 
IF (.ADDRESS = NEWBLOCK Eods tssu » LNKSGL -MINADDR } tLOeAT ets 


RETU 
ND” 
ELSE THEN BEGIN C1] GTRU .SIZE 
= NEWB 00 0] + .SIZE 

NEXTBLO ck = .NEWBLOC oii 
NEXTBLOCK = "NEWBLOCK 1) = .SIZE; 
LASTBLOCK = NEXTBLOCK (0); 
IF (. ADDRESS = NEWBLOCK(CO)) LSSU . 
THEN LNKSGL_MINADDR = NEWBLOCK (0); 


sere = LNKSREQUESTMEM (LNKSC_MEMEXP, MEMLIMITS)) 


AX=-11 Bliss-32 V4.0 Page 7 LN 
LINKER. SRCJLNKDYNMEM, +} 2:1 (4) vO 


! INITIALLY AT TOP OF FREE LIST 

! FOLLOW DOWN FREE LIST 

: LOOK FOR SUITABLE FREE BLOCK 

! EXACT SIZE MATCH 

! $O LAST a tile *OMESt THIS ONE POINTED 


ATED A 
i AND WE ARE DONE 


! OR ONE LARGER THAN REQUESTED 
! IN WHICH CASE THERE IS A NEW 


NEXT BLOCK (THE PART REMAINING 
! AFTER TAKING REQUESTED BLOCK OFF 


LNKSGL_MINADDR ! NOW RECORD LOWEST 


! ALLOCATED ADDRESS 
! AND WE ARE DONE 


! WHEN NOT PUL TALE THIS BLOCK BECOMES PREVIOUS BLOC 
! OF WHILE LOOP 


AT THIS POINT WE HAVE REACHED THE END OF THE FREE 
4 sh LIST WITHOUT FINDING A BLOCK OF TeeusneD etze. 


! SUCCESSFULLY EXPANDED PROGRAM REGION 
! DEALLOCATE NEW SPACE TO END OF 


BE 
Z NOT DEALLOCATE (MAXBLOCKSIZE, .MEMLIMITS COJ, LASTBLOCK (0)) 


! FREE LIST THEN ALLOCATE FROM IT 


! IS FATAL 
! DUMMY TO ELIMINATE INFO#212 
: OF ALLOCAT E ROUTINE 


[ 


LINK _DYNMEM 
vOu=000 


F8 


FC AG 
04 A0d 04 


08 
0000° 
0000° 


0000Vv 


0000v 


FF7C 


000000006 


3; Routine Size: 151 bytes, 
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Routine Base: 
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04 
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w LA 
bad wn 
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SCODES + 0044 
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AX-11 Bliss-32 V4.0-74 
LINKER. SRC JLNKDYNMEM.B52; 1 


R2,R3,R4 

LOCK, R4 

L_MEMLHD, LASTBLOCK 
as 


BLOCK, R2 
NEWBLOCK 


@ADDRESS 
LNKSGL_MINADDR 
, LNKSGL_MINADDR 
, LASTBLOCK 


BN HK DODOADWADWBVDAZDFWANS Za wr aw 
VR PM $$ RM $OCWDMWKHAHDOH—MODY—ZorPrwe 


128, -(SP) 

#2, CNKSREQUESTMEM 
STATUS, 7 
LASTBLOCK 

#3, DEALLOCATE 

RO. 8$ 

BRESS 

ALLOCATE 

ay 

RO 


DVnr BDBr>y 


ors 
> 


US 
LIBSSTOP 
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UN BUNA HSoseoctgee @§:56:50 YANN! BLieg=32 v408762, 


GLOBAL ROUTINE LNKSREQUESTMEM ( PAGES, RANGE ) = 

i THIS ROUTINE MAKES CALLS TO THE SYSTER SERVICE SEXPREG TO 

i EXPAND THE PROGR AM REGION. IF THE REQUEST SUCCEEDS, THE 

i RANGE IS RETURNED TO THE CALLING PROGRAM IN THE RANGE VECTOR. 
i IF THE REQ eT FAILS, TH HOUN OF MEMORY ACTUALLY GRANTED 
DELETED Vi E SDELTVA SYSTEM SERVICE, AND THE ROUTINE VALU 
i 


STATUS = SEXPREG (PAGCNT=.PAGES, RETADR=.RANGE);! MAKE REQUEST 


IF NOT .STATUS IF PROBLEM 
THEN BEGIN THEN THROW AWAY WHAT WE WERE 
GRANTED, ‘CAUSE IT WASN'T ENOUGH 


SDELTVA ( INADR=.RANGE ) 
AND MAP THE RETURN STATUS 


IF ,STATUS EQL §S$ EXQUOTA 
THEN STATUS = LIN$ -EXPAGQUO 
ELSE STATUS = LINS_MEMFUL ; 


END 
RETURN .STATUS 
END; 


AO ODDNOUE WN (“OO ONOUSWN"O0 


SOOCSCCCOCOCOCOOOOOOCOCOOOoOoOO 


WANA AAA AWA NAA NWN 


AON MNUIUNIMNUIE BE RRR RRP EW 


R=OOWONAUE WN "OV ONAUE WOO 


1 

1 

1 

1 

1 

1 

1 

1 

1 
BEGIN 
LOCAL STATUS ; 

1 


VME EERE ELE 


Rorononononony 


-EXTRN SYSSEXPREG, SYSSDELTVA 


0004 00000 .ENTRY LNKSREQUESTMEM, Save R2 
7E 7C 00002 CLRQ = = (SP) 
7E 04 AC 7D 00004 MOV PAGES, -(SP) 
000000006 00 04 FB 90008 CALLS #4, SYSSEXPREG 
52 50 DO 0000F MOVL RO. STATUS 
21 52 cB 00012 BLBS STATUS, 2$ 
7E 7C 0001 CLRQ  =(SP) 
08 AC DD 0017 PUSHL RANGE 
000000006 00 03 FB OOO1A CALLS #3 SYSSDELTVA 
iC : D1 00021 CMPL STATUS, # 
12 00024 BNEG 
52 000000006 F 06 09 6 MOVL #LINS_EXPAGQUO, STATUS 
52 000000006 8F 00 60 F 1$: MOVL § #LINS_MEMFUL, STATUS 
2 00 00 6 2$: MOVL STATUS, RO 
04 9 RET 


; Routine Size: 58 bytes, Routine Base: $CODE$ + 00DB 


; sf 63 GLOBAL ROUTINE LNKSDEALBLK (SIZE, BLOCKADDR) : NOVALUE = 
; 5 e ii ROUTINE TO DEALLOCATE A BLOCK TO THE FREE 
6 69 MEMORY LIST AFTER CHECKING ITS SIZE 
3 3 ef BEGIN 
; 260 e LOCAL 
5 e baat BLOCKSIZE; 
; 363 0 rs ERRORCODE = 10; 
; He o tf BLOCKSIZE = (.SIZE + 7) AND ( NOT 7); 
; e 0 i: IF .BLOCKSIZE EQL 0 
: 268 7 OR BLOCKSIZE GTRU MAXBLOCKSIZE 
: 269 0378 3 OR (ER RORCODE = .ERRORCODE + 
; 370 9 9 (.BLOCKADDR + .BLOCKSIZE - Ny) GTRU CONTROL_REGION 
; o7¢ 0381 3 OR (ERRORCODE = ,ERRORCODE : ili 
> 27 038¢ .BLOCKADDR LSSU NADDR) 
> 276 038 OR NOT DEALLOCATE (. ‘BLOCKSTZE. BLOCKADDR,LNKS$GL_MEMLHD) 
: $7 ttt atlas idan BLOCKSITE. *BLOCKADDR, .ERRORCODE 
: 277 0386 ve 
; 278 0387 2 RETURN; 
> 279 0388 1 END; 
000c 00000 .ENTRY 
53 0000" CF 9E 00002 MOVAB 
63 OA 90 0000 MOVB 
50 04 AC 7 C1 OOO0A ADDL 
52 50 0? cB OO0F BICL 
6 1 0013 BEQL 
00010000 8F 52 D1 0001 CMPL 
2b 1A Ooic BGTRU 
63 96 0001 INCB 
50 52 08 AC C1 000 ADDL3 
0 07 000 DECL 
40000000 = 8F 0 D1 CMPL 
: A BGTRU 
63 96 INCB 
0000" CF 08 AC 01 000 CMPL 
11 1F 000 BLSSU 
0000" CF 9F OOO3A PUSHAB 
08 AC DD PUSHL 
DD 0004 PUSHL 
0000v CF FB 4 CALLS 
17 E 4 BLBS 
7E 63 9A 00048 1$ MOVZBL 
08 AC DD O004E PUSHL 
3 DD 21 PUSHL 
DD 3 PUSHL 


LN _BYNMEN 1Foseoctgee 25:56:50 YANN! Bisge32 v4 0-742, 


INITIALIZE ERROR CODE 
ROUND UP TO A MULTIPLE OF 8 BYTES 


CHECK BLOCK SIZE _IS 
LEGAL AND THAT IT LIES 


to a WITHIN PROGRAM REGION 
peaus FATAL ERROR MESSAGE 
BELOW MINIMUM ALLOCATED ADDRESS 


ALSO IF 
ATTEMPT DEALLOCATION 
ISSUING FATAL ERROR IF FAILURE 


OTHERWISE JUST RETURN 


LNK$DEALBLK, Save R2,R3 

ERRORCODE, R3 
#10, ERRORCODE 

Ag aoe éufcksize 

gen #65536 


ERRORCODE 
B OCKADDR, BLOCKSIZE, RO 


» #1073741824 


ERRORCODE 
PLOCKAD OR, LNKSGL_MINADDR 


LNKS$GL_MEMLHD 
CKADDR 
CKSIZE 
#3, DEALLOCATE 
ERRORCODE, -(SP) 
CKADDR 
BLOCKSIZE 
7 


omnxeoor — 
—2OWw — 
° oo 
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fon 
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a 


Lm RMEN Fete re 


AX=-11 BLli Air 32 V4.0-742 
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LINKER. SRCJLNKDYNMEM,B32; 1 
000000006 8F bp PUSH ‘ IN$_MEMBU 
000000006 00 BE FB 09086 28 8; CALL , LIB Crop 


; Routine Size: 99 bytes, Routine Base: S$CODE$S + 0115 


ep 1 LN 
aoe vO. 
0388 


AAWAAWINIAI 


Se 
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LA. AA AA AAAI POP PIPURINGNONIDD 2 9 9 tt OO 


oO 
oo 


FREE EB RWWA 
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1B.s2 $ep-1984 23:56: AX-11 Bliss-32 V4.0-7 
14- -35p- 1382 13:26:39 LINKER. SRCJLNKDYNMEM, 2;1 
ROUTINE DEALLOCATE (SIZE, ADDRESS, LISTHEAD) = 


i ROUTINE TO PUT A BLOCK ONTO A LIST OF FREE BLOCKS, 
; WITH MAXIMAL COMPACTION 


BEGIN 
LASTBLOCK = .LISTHEAD; 
NEWBLOCK = .ADDRESS; 


a eee TeLae = .LASTBLOCK [0]) NEQ 0 

TF NEWBLOCK CO] LEQU NEXTBLOCK (0) 
THEN BEI COJ+.SIZE EQL NEXTBLOCK (0) 
NEWBLOCK £03 ~ -NEXTBLOCK £02: 


THE LI 
CURRENT BLOCK IS TO BE INSERTED 


FOLLOW DOWN FREE LIST TILL 
THE END, OR TILL WE REACH 


THE POSITION FOR INSERTION. 
HERE WE COMPACT WITH NEXT BLOCK 


PREVIOUS BLOCK i GL 


peace -NEXTBLOCK + .SIZE; 

ELSE BEGIN 
IF NEWBLOCK (0) + .SIZE atiee WEXTBLOCK C0] ! IF THE BLOCK TO DEALLOCATE 
THEN CERRORCODE, : -ERRORCODE + 1; ! EXTENDS A NEXT FREE BLOCK 

LSE); i AND RETURN LURE 

NEWBLOCK. oy : NEFTBLOCK C0J; ! ELSE SET POIN TER AND SIZE SINCE NO 
wo. LOCK C1J = .SIZE; ! FORWARD COMPACTION NEEDED 

MY NEWBLOCK CO] EQL LASTBLOCK ([0]+.LASTBLOCK [1] 

THEN BEGIN ; sf aa COMPACT WITH PREVIOUS 


LASTBLOCK (OJ = .NEWBLOCK i BLOC 
Nance 1] = / NEWBLOCK 3 +.LASTBLOCK (1); 
! NO BACKWARD COMPACTION BUT... 


BEGIN MUST CHECK THAT BLOCK TO 
IF NEWBLOCK (OJ LSSU LASTBLOCK (0) + .LASTBLOCK (1 

! DEALLOCATE IS NOT PARTIALLY IN 
THEN a or  ERRORCODE ots i PREVIOUS HOLE -- FAILURE IF SO 


LASTBLOCK [0] = NEWBLOCK (0); ! IF OK PREVIOUS POINTS TO NEW ONE. 
N i AND WE ARE DONE COMPACTING 
RETURN TRUE; i $O RETURN SUCCESS. 


N 
ELSE LASTBLOCK = NEXTBLOCK (0); ! NOT THERE YET SO LAST BLOCK IS ONE JUST TESTED 
END; : OF WHILE LOOP 


ELSE 


THE BLOCK TO DEALLOCATE IS BEYOND LAST HOLE 


IF NEWBLOCKCO) LSSU LAS TOL OCKEO? + .LASTBLOCK(1) 
THEN (ERRORCODE = .ERRORCODE + 1; 
ELSE RETURN FALSE) 


! BUT IF IT STARTS WITHIN 
! THE LAST HOLE - FAIL IT 


BEGIN ! OTHERWISE CHECK FOR COMPACTION 
IF NEWBLOCK(O) + LASTOLOCK EOD stAaTe BLOCKC1) ! WITH LAST HOLE 
J = .LASTBLOCK(1) + .SIZE ! AND ADD IN SIZE IF REQUIRED 


THEN LASTBLOCKE 
ELSE 


BEG ! OTHERWISE JUST 
NEWBLOCK i. ° TF i PUT ON END OF FREE LIST. 


EWBLOCKLO); 
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; 338 44 END; ! AND ALL DONE 

; ) Bet RETURN TRUE: ' $0 RETURN SUCCESS 
F 40 tts END; 

: 341 044 END; ! OF ROUTINE 


001C 00000 DEALLOCATE: 
WORD 


. Save R2,R3,R4 : 9 
54 0090" cr 9 9902 MOVAB LASTBLOCK, R4& : a8 
64 AC D MOVL  LISTHEAD, LASTBLOCK + 0395 
FB AG 08 AC dO 000 MOVL ADDRESS, NEWBLOCK + 0396 
2] f AG OD 061 MOVL NEWBLOCK, R1 : 0400 
0 64 00 00014 18 MOVL LASTBLOCK, RO + 0398 
FC OA 60 00 00017 MOVL (RO), NEXTBLOCK : 
5 FC rh > iets povt oe Te OCK, R2 : 0400 
5 31 D1 $09 1 CMPL sR, RD ; : 
53 51 os at Ch 0056 Bere SIZE, RI. R3 : 0402 
a é 4 
52 af D1 00028 CMPL ase R2 : 
0¢ 12 000 BNEG 28 : 
61 62 00 000 MOVL. (Re), (R1) + 0404 
046 «Al 04 A2 04 ac C1 000 ADDL3 s1ZE, 4(R2), 4(R1) + 0405 
OA 11 0003A BRB $ + 0402 
: 1A 0003C 28: BGTRU 7$ + 0408 
61 52 DO 0003E MOVL 2, (R1) + 0411 
06 Al 06 AC DO 06941 MOVL. SIZE, 4(R1) + 0412 
52 50 04 AO C1 00046 38 ADDL3 4(ROS, RO, R2 > 0614 
52 51 D1 00048 CMPL = R1, RO : 
OA 12 004 BNEG 4$ : 
60 61 00 0005 MOVL  (R1), (RO) : 0416 
04 AO 06 al CO 905 ADDL2 4 (R15, 4(RO) : 041 
3 11 0005 BRB 11$ t 0414 
1E 0005A 4$ BGEQU § 10$ + 0421 
1g 11 9005¢ BRB 7$ + 0423 
64 52 DO O00SE Ss: MOVL Re. LASTBLOCK + 0429 
gi 11 0061 BRB 1 : 0398 
50 64 00 00063 6$: MOVL. LASTBLOCK, RQ > 0434 
52 50 04 Aad C1 00066 ADDL3 4(RO), RO. R : 
52 51 D1 00068 CMPL = R1, RO ; 
05 JE $ BGEGU 8S ; 
Fe Aa OO 7$: INCB —_ ERRORCODE > 0435 
17 11 0007 BRB 12s : 04 a 
07 1 75 8$ BNEQ 9 > 0439 
04 Ad 06 ac C 7 ADDL2 SIZE, 4(RO) + 0440 
OA 11 0007¢ BRB 11$ ; 
61 D4 OOO7E 9: CLRL =. (R1) > 0443 
04 al 06 ac D MOVL SIZE 4(R1) > 0444 
$0 3 D 10$: mMOVL 1, (RO) ; 445 
0 1 11$: MOVL #1. RO : 044 
4 RET + 0438 
50 D4 C12$:  CLRL RO + 0449 
4 RET : 
| 
| 


<- 
+ 


21982 $3:28:39 | NR Otd EE Rep Vn oS2-1 


3 
Sep 
Sep 


aaa He 


; Routine Size: 143 bytes, Routine Base: SCODES + 0178 


342 0450 0 END ELUDOM ! OF MODULE 
-EXTRN LIBSSTOP 
PSECT SUMMARY 
Name Bytes Attributes 

SGLOBAL$ 12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS 16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 519 WOVEC,NOWRT, ROD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

ABS . 0 NOVEC,NOWRT,NORD *NOEXE, NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 


Library Statistics 


ouewsuss Symbols -------- Pages Processing 
File Total Loaded Percent Mapped me 
_$255$DUA28: CSYSLIBILIB.L32;1 18619 11 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:LNKDYNMEM/OBJ=OBJ$:LNKDYNMEM MSRCS$:LNKDYNMEM/UPDATE=(ENHS:LNKDYNMEM) 


; Size: 519 code + 28 data bytes 
; Run Time: 00:12.7 
: rd Time 00:29.3 


; Lines/CPU Min: 


; yovenee/<PU-Ates 18899 
4 Used: 103 pages 
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